@@ -1,5 +1,8 @@
Revision history for Perl extension Catalyst::Plugin::Authentication
+0.10018 29 Jul 2011
+ - Fix failing tests with the new PSGI Catalyst dev release
+
0.10017 24 Jan 2010
- Fix failing tests with the new PSGI Catalyst dev release
@@ -53,6 +53,7 @@ t/lib/RemoteTestApp1/Controller/Root.pm
t/lib/RemoteTestApp2.pm
t/lib/RemoteTestApp2/Controller/Root.pm
t/lib/RemoteTestEngine.pm
+t/lib/RemoteTestEngineRole.pm
t/live_app.t
t/live_app_realms.t
t/live_app_realms_compat.t
@@ -11,7 +11,7 @@ build_requires:
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.99'
+generated_by: 'Module::Install version 1.01'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -25,13 +25,9 @@ requires:
Catalyst::Plugin::Session: 0.10
Catalyst::Runtime: 0
Class::Inspector: 0
- Class::MOP: 0
MRO::Compat: 0
- Moose: 0
- Test::Exception: 0
- Test::More: 0.88
perl: 5.8.1
resources:
license: http://dev.perl.org/licenses/
repository: http://dev.catalyst.perl.org/repos/Catalyst/Catalyst-Plugin-Authentication/0.10000/trunk
-version: 0.10017
+version: 0.10018
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -48,6 +48,14 @@ sub auto_install {
while (my ($mod, $ver) = splice(@requires, 0, 2)) {
$seen{$mod}{$ver}++;
}
+ my @build_requires = map @$_, map @$_, grep ref, $self->build_requires;
+ while (my ($mod, $ver) = splice(@build_requires, 0, 2)) {
+ $seen{$mod}{$ver}++;
+ }
+ my @configure_requires = map @$_, map @$_, grep ref, $self->configure_requires;
+ while (my ($mod, $ver) = splice(@configure_requires, 0, 2)) {
+ $seen{$mod}{$ver}++;
+ }
my @deduped;
while (my ($mod, $ver) = splice(@features_require, 0, 2)) {
@@ -4,7 +4,7 @@ package Module::Install::Base;
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
@@ -9,7 +9,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -8,7 +8,7 @@ use Fcntl qw/:flock :seek/;
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@ sub __extract_license {
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@ sub license_from {
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.99';
+ $VERSION = '1.01';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
@@ -31,7 +31,7 @@ BEGIN {
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.99';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -230,8 +230,12 @@ sub preload {
sub new {
my ($class, %args) = @_;
- delete $INC{'FindBin.pm'};
- require FindBin;
+ delete $INC{'FindBin.pm'};
+ {
+ # to suppress the redefine warning
+ local $SIG{__WARN__} = sub {};
+ require FindBin;
+ }
# ignore the prefix on extension modules built from top level.
my $base_path = Cwd::abs_path($FindBin::Bin);
@@ -463,4 +467,4 @@ sub _CLASS ($) {
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
@@ -12,7 +12,7 @@ use Tie::RefHash;
use Class::Inspector;
use Catalyst::Authentication::Realm;
-our $VERSION = "0.10017";
+our $VERSION = "0.10018";
sub set_authenticated {
my ( $c, $user, $realmname ) = @_;
@@ -1,5 +1,6 @@
use strict;
use warnings;
+use Test::More;
use Test::NoTabs;
all_perl_files_ok;
@@ -6,7 +6,9 @@ use Catalyst qw/
/;
use base qw/Catalyst/;
-__PACKAGE__->engine_class('RemoteTestEngine');
+unless ($Catalyst::VERSION >= 5.89000) {
+ __PACKAGE__->engine_class('RemoteTestEngine');
+}
__PACKAGE__->config(
'Plugin::Authentication' => {
default_realm => 'remote',
@@ -25,8 +27,11 @@ __PACKAGE__->config(
},
},
);
-
__PACKAGE__->setup;
+if ($Catalyst::VERSION >= 5.89000) {
+ require RemoteTestEngineRole;
+ RemoteTestEngineRole->meta->apply(__PACKAGE__->engine);
+}
1;
@@ -7,7 +7,9 @@ use Catalyst qw/
/;
use base qw/Catalyst/;
-__PACKAGE__->engine_class('RemoteTestEngine');
+unless ($Catalyst::VERSION >= 5.89000) {
+ __PACKAGE__->engine_class('RemoteTestEngine');
+}
__PACKAGE__->config(
'Plugin::Authentication' => {
default_realm => 'remote',
@@ -28,8 +30,11 @@ __PACKAGE__->config(
},
},
);
-
__PACKAGE__->setup;
+if ($Catalyst::VERSION >= 5.89000) {
+ require RemoteTestEngineRole;
+ RemoteTestEngineRole->meta->apply(__PACKAGE__->engine);
+}
1;
@@ -0,0 +1,15 @@
+package RemoteTestEngineRole;
+use Moose::Role;
+require Catalyst;
+
+around env => sub {
+ my ($orig, $self, @args) = @_;
+ my $e = $self->$orig(@args);
+
+ $e->{REMOTE_USER} = $RemoteTestEngine::REMOTE_USER;
+ $e->{SSL_CLIENT_S_DN} = $RemoteTestEngine::SSL_CLIENT_S_DN;
+ return $e;
+};
+
+1;
+